home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / oocs / frmip.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-01  |  1.3 KB  |  45 lines
  1. VERSION 5.00
  2. Begin VB.Form frmIP 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Host Address"
  5.    ClientHeight    =   315
  6.    ClientLeft      =   2130
  7.    ClientTop       =   1980
  8.    ClientWidth     =   3000
  9.    LinkTopic       =   "Form2"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   315
  13.    ScaleWidth      =   3000
  14.    ShowInTaskbar   =   0   'False
  15.    Begin VB.CommandButton cmdOK 
  16.       Caption         =   "OK"
  17.       Height          =   255
  18.       Left            =   2160
  19.       TabIndex        =   1
  20.       Top             =   0
  21.       Width           =   735
  22.    End
  23.    Begin VB.TextBox txtIPAddress 
  24.       Height          =   285
  25.       Left            =   0
  26.       TabIndex        =   0
  27.       Text            =   "127.0.0.1"
  28.       Top             =   0
  29.       Width           =   1935
  30.    End
  31. Attribute VB_Name = "frmIP"
  32. Attribute VB_GlobalNameSpace = False
  33. Attribute VB_Creatable = False
  34. Attribute VB_PredeclaredId = True
  35. Attribute VB_Exposed = False
  36. Option Explicit
  37. Private WithEvents ConnectStatus As cClientActions
  38. Attribute ConnectStatus.VB_VarHelpID = -1
  39. Private Sub cmdOK_Click()
  40.    ' Exit if Empty string
  41.    If txtIPAddress = "" Then Exit Sub
  42.    'Attempt Connection to the Server.
  43.    Client_.Connect txtIPAddress, frmCLient.tcpClient
  44. End Sub
  45.